<%@ Page Language="VB" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<script runat="server">

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim lID As Long = Request.QueryString("ID")
        Dim lRevID As Long = Request.QueryString("REV")
        
        Dim oDB As New SQLAutoDocLib.Database(lID, lRevID)
        oDB.Load()
        
        Dim oGUID As Guid = Guid.NewGuid
        Dim sPath As String = Application("TempPath") & oGUID.ToString & ".xml"
        Dim oText As New System.IO.StreamWriter(sPath)
        oText.Write(oDB.ToXML)
        oText.Flush()
        oText.Close()
        oText.Dispose()

        Dim sURL As String = Session("TempURL") & oGUID.ToString & ".xml"
        Response.Redirect(sURL)
    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Untitled Page</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    
    </div>
    </form>
</body>
</html>
